home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / fund_ch.dxr / 00197.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  555 b   |  22 lines
  1. on mouseUp me
  2.   global questionset, firsttime, thechapter
  3.   showit(96, 97)
  4.   puppetTransition(1, 2, 1, 1)
  5.   repeat with X = 1 to 15
  6.     put EMPTY into char 5 of line X of field "ans1"
  7.   end repeat
  8.   put "Your results are:" & RETURN into field "results"
  9.   questionset = 1
  10.   repeat with Y = 1 to 3
  11.     repeat with X = 1 to 5
  12.       member("Ans" & Y & "_" & X).hilite = 0
  13.     end repeat
  14.   end repeat
  15.   member("pageNumbertxt").fontStyle = [#plain]
  16.   member("pageNumbertxt").foreColor = 44
  17.   showit(26, 30)
  18.   showit(35, 52)
  19.   thechapter = 10
  20.   go("ChTest")
  21. end
  22.